/* rebr011.p - Repetitive Line Schedule Browse UI                           */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/* $Revision: 1.4 $    */
/*V8:ConvertMode=NoConvert                                                  */
/********************************** History *********************************
 *    Revision: 9.1      Created: 06/07/99    By: Luke Pokic     *N005*
 *    Revision: 9.1     Modified: 08/15/00    By: Mark Brown     *N0KP*
 * $Revision: 1.4 $    BY: Jean Miller          DATE: 04/05/02  ECO: *P044*
 ****************************************************************************/

{mfdeclre.i}

&SCOPED-DEFINE BR-TITLE "Repetitive Line Schedule"

&SCOPED-DEFINE BR-NAME re011
&SCOPED-DEFINE Q-DRAG-BACK-COL 1

&SCOPED-DEFINE Q-FIRST-TABLE rps_mstr
&SCOPED-DEFINE Q-FIRST-FIELD-LIST (rps_line rps_site rps_rel_date rps_part rps_qty_req rps_qty_comp)
&SCOPED-DEFINE Q-2ND-TABLE lnd_det
&SCOPED-DEFINE Q-2ND-JOIN lnd_site = rps_site and lnd_line = rps_line and lnd_part = rps_part and lnd_start <= rps_rel_date
&SCOPED-DEFINE Q-2ND-FIELD-LIST (lnd_run_seq1 lnd_run_seq2)
&SCOPED-DEFINE Q-3RD-TABLE pt_mstr
&SCOPED-DEFINE Q-3RD-JOIN pt_part = rps_part
&SCOPED-DEFINE Q-3RD-FIELD-LIST (pt_desc1)
&SCOPED-DEFINE Q-NUM-TABLES 3

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-1 b-1.rps_line
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-1 rps_mstr.rps_line
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-1 tt-rps_line
&SCOPED-DEFINE BR-K-COL-LABEL-1 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-1 "Line"
&SCOPED-DEFINE BR-FIELD-TYPE-1 character
&SCOPED-DEFINE BR-FIELD-FRMT-1 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-1 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-2 b-1.rps_site
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-2 rps_mstr.rps_site
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-2 tt-rps_site
&SCOPED-DEFINE BR-K-COL-LABEL-2 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-2 "Site"
&SCOPED-DEFINE BR-FIELD-TYPE-2 character
&SCOPED-DEFINE BR-FIELD-FRMT-2 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-2 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-3 b-1.rps_rel_date
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-3 rps_mstr.rps_rel_date
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-3 tt-rps_rel_date
&SCOPED-DEFINE BR-K-COL-LABEL-3 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-3 "Release"
&SCOPED-DEFINE BR-FIELD-TYPE-3 date
&SCOPED-DEFINE BR-FIELD-FRMT-3 FORMAT "99/99/99"
&SCOPED-DEFINE BR-FIELD-WIDTH-3 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-4 b-2.lnd_run_seq1
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-4 lnd_det.lnd_run_seq1
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-4 tt-lnd_run_seq1
&SCOPED-DEFINE BR-K-COL-LABEL-4 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-4 "Run Seq 1"
&SCOPED-DEFINE BR-FIELD-TYPE-4 character
&SCOPED-DEFINE BR-FIELD-FRMT-4 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-4 10

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-5 b-2.lnd_run_seq2
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-5 lnd_det.lnd_run_seq2
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-5 tt-lnd_run_seq2
&SCOPED-DEFINE BR-K-COL-LABEL-5 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-5 "2"
&SCOPED-DEFINE BR-FIELD-TYPE-5 character
&SCOPED-DEFINE BR-FIELD-FRMT-5 FORMAT "x(8)"
&SCOPED-DEFINE BR-FIELD-WIDTH-5 9

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-6 b-1.rps_part
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-6 rps_mstr.rps_part
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-6 tt-rps_part
&SCOPED-DEFINE BR-K-COL-LABEL-6 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-6 "Item Number"
&SCOPED-DEFINE BR-FIELD-TYPE-6 character
&SCOPED-DEFINE BR-FIELD-FRMT-6 FORMAT "x(18)"
&SCOPED-DEFINE BR-FIELD-WIDTH-6 19

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-7 b-3.pt_desc1
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-7 pt_mstr.pt_desc1
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-7 tt-pt_desc1
&SCOPED-DEFINE BR-K-COL-LABEL-7 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-7 "Description"
&SCOPED-DEFINE BR-FIELD-TYPE-7 character
&SCOPED-DEFINE BR-FIELD-FRMT-7 FORMAT "x(24)"
&SCOPED-DEFINE BR-FIELD-WIDTH-7 25

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-8 b-1.rps_qty_req
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-8 rps_mstr.rps_qty_req
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-8 tt-rps_qty_req
&SCOPED-DEFINE BR-K-COL-LABEL-8 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-8 "Qty Scheduled"
&SCOPED-DEFINE BR-FIELD-TYPE-8 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-8 FORMAT "->,>>>,>>9.9<<<<<<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-8 21

&SCOPED-DEFINE Q-BROWSE-DISP-EXPR-9 b-1.rps_qty_comp
&SCOPED-DEFINE Q-BROWSE-DEF-EXPR-9 rps_mstr.rps_qty_comp
&SCOPED-DEFINE TT-Q-BROWSE-DEF-EXPR-9 tt-rps_qty_comp
&SCOPED-DEFINE BR-K-COL-LABEL-9 COLUMN-LABEL
&SCOPED-DEFINE BR-COLUMN-LABEL-9 "Qty Comp"
&SCOPED-DEFINE BR-FIELD-TYPE-9 decimal
&SCOPED-DEFINE BR-FIELD-FRMT-9 FORMAT "->,>>>,>>9.9<<<<<<<<"
&SCOPED-DEFINE BR-FIELD-WIDTH-9 21

&SCOPED-DEFINE Q-NUM-FILT-VALS 9
&SCOPED-DEFINE BR-MAX-FIELD-WIDTH 25
&SCOPED-DEFINE BR-BROWSE-WIDTH 132
&SCOPED-DEFINE WHERE-CLAUSE
&SCOPED-DEFINE BR-INDEXED-FIELDS 1,2,6,7

{wbbr01.i}
if c-application-mode <> 'WEB' then do:
   {browse.i}
end.
